home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 2
/
Gold Medal Software Volume 2 (Gold Medal) (1994).iso
/
prog
/
hcn305.arj
/
GSDMO_22.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-02
|
2KB
|
73 lines
program GSDMO_22;
{------------------------------------------------------------------------------
Getting More Files Open
Copyright (c) Richard F. Griffin
06 February 1993
102 Molded Stone Pl
Warner Robins, GA 31088
-------------------------------------------------------------
This unit demonstrates how to increase the number of files that can
be opened in a program.
The program will open all the *.PAS files in the current directory.
The procedure SetFileHandles() will allow the program to open as
many files as needed at the same time, up to the number passed as
the argument (not to exceed 255). This number cannot exceed the
value given in the FILES= command in the AUTOEXEC.BAT file.
New procedures/functions introduced are:
SetFileHandles
-------------------------------------------------------------------------------}
uses
GSOB_Var,
GSOBShel,
{$IFDEF WINDOWS}
WinDos,
WinCRT;
{$ELSE}
Dos,
CRT;
{$ENDIF}
{The following types map DOS and WINDOWS TP names to be the same}
{$IFNDEF WINDOWS}
const
faArchive = Archive;
type
TSearchRec = SearchRec;
{$ENDIF}
var
DirInfo: TSearchRec;
filary : array[0..99] of text;
i : integer;
begin
ClrScr;
SetFileHandles(99); {Comment out to confirm default limit}
FindFirst('*.PAS', faArchive, DirInfo);
i := 0;
while DosError = 0 do
begin
WriteLn(i:3,' ',DirInfo.Name);
Assign(filary[i],DirInfo.Name);
Reset(filary[i]);
inc(i);
FindNext(DirInfo);
end;
end.